home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / REXX.lha / RexxvarAccessDemo.wrx < prev    next >
Text File  |  1995-05-01  |  486b  |  28 lines
  1. /*
  2.  * Script für WRITE V3.263 © 1994 Tim Teulings
  3.  * Dieses Script zeigt den Umgang mit einige Befehlen, die die internen
  4.  * Listen von WRITE unterstützen.
  5.  */
  6.  
  7. IF ~show('P',"WRITE")
  8. THEN DO
  9.  say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
  10.  exit 10
  11. END
  12.  
  13. ADDRESS "WRITE"
  14.  
  15. OPTIONS RESULTS
  16.  
  17. 'VERSIONCHECK 40000 "RexxvarAccessDemo.wrx"'
  18. IF RC~=0 THEN DO
  19.   exit 10
  20. END
  21.  
  22. Text = "Hallo, dies ist ein Test"
  23.  
  24. 'MESSAGEOK ' "(" Text ")"
  25. 'MESSAGEOK &Text'
  26. 'MESSAGEOK "&Text&"'
  27.  
  28.